home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / egg / egg-jsymbol.el.z / egg-jsymbol.el
Encoding:
Text File  |  1998-05-21  |  26.2 KB  |  915 lines
  1. ;; Japanese Character Input Package for Egg
  2. ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
  3.  
  4. ;; This file is part of Egg on Mule (Multilingal Environment)
  5.  
  6. ;; Egg is distributed in the forms of patches to GNU
  7. ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
  8. ;; LICENSE which is distributed along with GNU Emacs by the
  9. ;; Free Software Foundation.
  10.  
  11. ;; Egg is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied
  13. ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14. ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15. ;; more details.
  16.  
  17. ;; You should have received a copy of the GNU EMACS GENERAL
  18. ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19. ;; If not, write to the Free Software Foundation, 675 Mass
  20. ;; Ave, Cambridge, MA 02139, USA.
  21.  
  22. ;;; 92.10.18 modified for Mule Ver.0.9.6 by K.Handa <handa@etl.go.jp>
  23. ;;;    Moved from egg.el
  24. ;;; 92.12.26 modified for Mule Ver.0.9.7 by T.Shingu <shingu@cpr.canon.co.jp>
  25. ;;;    JIS Hojo Kanji support.
  26.  
  27. (provide 'egg-jsymbol)
  28.  
  29. (defvar *ku1-alist* '(
  30.      ( "$B!!(B" . "$B!!(B")
  31.      ( "$B!"(B" . "$B!"(B")
  32.      ( "$B!#(B" . "$B!#(B")
  33.      ( "$B!$(B" . "$B!$(B")
  34.      ( "$B!%(B" . "$B!%(B")
  35.      ( "$B!&(B" . "$B!&(B")
  36.      ( "$B!'(B" . "$B!'(B")
  37.      ( "$B!((B" . "$B!((B")
  38.      ( "$B!)(B" . "$B!)(B")
  39.      ( "$B!*(B" . "$B!*(B")
  40.      ( "$B!+(B" . "$B!+(B")
  41.      ( "$B!,(B" . "$B!,(B")
  42.      ( "$B!-(B" . "$B!-(B")
  43.      ( "$B!.(B" . "$B!.(B")
  44.      ( "$B!/(B" . "$B!/(B")
  45.      ( "$B!0(B" . "$B!0(B")
  46.      ( "$B!1(B" . "$B!1(B")
  47.      ( "$B!2(B" . "$B!2(B")
  48.      ( "$B!3(B" . "$B!3(B")
  49.      ( "$B!4(B" . "$B!4(B")
  50.      ( "$B!5(B" . "$B!5(B")
  51.      ( "$B!6(B" . "$B!6(B")
  52.      ( "$B!7(B" . "$B!7(B")
  53.      ( "$B!8(B" . "$B!8(B")
  54.      ( "$B!9(B" . "$B!9(B")
  55.      ( "$B!:(B" . "$B!:(B")
  56.      ( "$B!;(B" . "$B!;(B")
  57.      ( "$B!<(B" . "$B!<(B")
  58.      ( "$B!=(B" . "$B!=(B")
  59.      ( "$B!>(B" . "$B!>(B")
  60.      ( "$B!?(B" . "$B!?(B")
  61.      ( "$B!@(B" . "$B!@(B")
  62.      ( "$B!A(B" . "$B!A(B")
  63.      ( "$B!B(B" . "$B!B(B")
  64.      ( "$B!C(B" . "$B!C(B")
  65.      ( "$B!D(B" . "$B!D(B")
  66.      ( "$B!E(B" . "$B!E(B")
  67.      ( "$B!F(B" . "$B!F(B")
  68.      ( "$B!G(B" . "$B!G(B")
  69.      ( "$B!H(B" . "$B!H(B")
  70.      ( "$B!I(B" . "$B!I(B")
  71.      ( "$B!J(B" . "$B!J(B")
  72.      ( "$B!K(B" . "$B!K(B")
  73.      ( "$B!L(B" . "$B!L(B")
  74.      ( "$B!M(B" . "$B!M(B")
  75.      ( "$B!N(B" . "$B!N(B")
  76.      ( "$B!O(B" . "$B!O(B")
  77.      ( "$B!P(B" . "$B!P(B")
  78.      ( "$B!Q(B" . "$B!Q(B")
  79.      ( "$B!R(B" . "$B!R(B")
  80.      ( "$B!S(B" . "$B!S(B")
  81.      ( "$B!T(B" . "$B!T(B")
  82.      ( "$B!U(B" . "$B!U(B")
  83.      ( "$B!V(B" . "$B!V(B")
  84.      ( "$B!W(B" . "$B!W(B")
  85.      ( "$B!X(B" . "$B!X(B")
  86.      ( "$B!Y(B" . "$B!Y(B")
  87.      ( "$B!Z(B" . "$B!Z(B")
  88.      ( "$B![(B" . "$B![(B")
  89.      ( "$B!\(B" . "$B!\(B")
  90.      ( "$B!](B" . "$B!](B")
  91.      ( "$B!^(B" . "$B!^(B")
  92.      ( "$B!_(B" . "$B!_(B")
  93.      ( "$B!`(B" . "$B!`(B")
  94.      ( "$B!a(B" . "$B!a(B")
  95.      ( "$B!b(B" . "$B!b(B")
  96.      ( "$B!c(B" . "$B!c(B")
  97.      ( "$B!d(B" . "$B!d(B")
  98.      ( "$B!e(B" . "$B!e(B")
  99.      ( "$B!f(B" . "$B!f(B")
  100.      ( "$B!g(B" . "$B!g(B")
  101.      ( "$B!h(B" . "$B!h(B")
  102.      ( "$B!i(B" . "$B!i(B")
  103.      ( "$B!j(B" . "$B!j(B")
  104.      ( "$B!k(B" . "$B!k(B")
  105.      ( "$B!l(B" . "$B!l(B")
  106.      ( "$B!m(B" . "$B!m(B")
  107.      ( "$B!n(B" . "$B!n(B")
  108.      ( "$B!o(B" . "$B!o(B")
  109.      ( "$B!p(B" . "$B!p(B")
  110.      ( "$B!q(B" . "$B!q(B")
  111.      ( "$B!r(B" . "$B!r(B")
  112.      ( "$B!s(B" . "$B!s(B")
  113.      ( "$B!t(B" . "$B!t(B")
  114.      ( "$B!u(B" . "$B!u(B")
  115.      ( "$B!v(B" . "$B!v(B")
  116.      ( "$B!w(B" . "$B!w(B")
  117.      ( "$B!x(B" . "$B!x(B")
  118.      ( "$B!y(B" . "$B!y(B")
  119.      ( "$B!z(B" . "$B!z(B")
  120.      ( "$B!{(B" . "$B!{(B")
  121.      ( "$B!|(B" . "$B!|(B")
  122.      ( "$B!}(B" . "$B!}(B")
  123.      ( "$B!~(B" . "$B!~(B")
  124. ))
  125. (defvar *ku2-alist* '(
  126.      ( "$B"!(B" . "$B"!(B")
  127.      ( "$B""(B" . "$B""(B")
  128.      ( "$B"#(B" . "$B"#(B")
  129.      ( "$B"$(B" . "$B"$(B")
  130.      ( "$B"%(B" . "$B"%(B")
  131.      ( "$B"&(B" . "$B"&(B")
  132.      ( "$B"'(B" . "$B"'(B")
  133.      ( "$B"((B" . "$B"((B")
  134.      ( "$B")(B" . "$B")(B")
  135.      ( "$B"*(B" . "$B"*(B")
  136.      ( "$B"+(B" . "$B"+(B")
  137.      ( "$B",(B" . "$B",(B")
  138.      ( "$B"-(B" . "$B"-(B")
  139.      ( "$B".(B" . "$B".(B")
  140. ;     ( "$B"/(B" . "$B"/(B")
  141. ;     ( "$B"0(B" . "$B"0(B")
  142. ;     ( "$B"1(B" . "$B"1(B")
  143. ;     ( "$B"2(B" . "$B"2(B")
  144. ;     ( "$B"3(B" . "$B"3(B")
  145. ;     ( "$B"4(B" . "$B"4(B")
  146. ;     ( "$B"5(B" . "$B"5(B")
  147. ;     ( "$B"6(B" . "$B"6(B")
  148. ;     ( "$B"7(B" . "$B"7(B")
  149. ;     ( "$B"8(B" . "$B"8(B")
  150. ;     ( "$B"9(B" . "$B"9(B")
  151.      ( "$B":(B" . "$B":(B")
  152.      ( "$B";(B" . "$B";(B")
  153.      ( "$B"<(B" . "$B"<(B")
  154.      ( "$B"=(B" . "$B"=(B")
  155.      ( "$B">(B" . "$B">(B")
  156.      ( "$B"?(B" . "$B"?(B")
  157.      ( "$B"@(B" . "$B"@(B")
  158.      ( "$B"A(B" . "$B"A(B")
  159. ;     ( "$B"B(B" . "$B"B(B")
  160. ;     ( "$B"C(B" . "$B"C(B")
  161. ;     ( "$B"D(B" . "$B"D(B")
  162. ;     ( "$B"E(B" . "$B"E(B")
  163. ;     ( "$B"F(B" . "$B"F(B")
  164. ;     ( "$B"G(B" . "$B"G(B")
  165. ;     ( "$B"H(B" . "$B"H(B")
  166. ;     ( "$B"I(B" . "$B"I(B")
  167.      ( "$B"J(B" . "$B"J(B")
  168.      ( "$B"K(B" . "$B"K(B")
  169.      ( "$B"L(B" . "$B"L(B")
  170.      ( "$B"M(B" . "$B"M(B")
  171.      ( "$B"N(B" . "$B"N(B")
  172.      ( "$B"O(B" . "$B"O(B")
  173.      ( "$B"P(B" . "$B"P(B")
  174. ;     ( "$B"Q(B" . "$B"Q(B")
  175. ;     ( "$B"R(B" . "$B"R(B")
  176. ;     ( "$B"S(B" . "$B"S(B")
  177. ;     ( "$B"T(B" . "$B"T(B")
  178. ;     ( "$B"U(B" . "$B"U(B")
  179. ;     ( "$B"V(B" . "$B"V(B")
  180. ;     ( "$B"W(B" . "$B"W(B")
  181. ;     ( "$B"X(B" . "$B"X(B")
  182. ;     ( "$B"Y(B" . "$B"Y(B")
  183. ;     ( "$B"Z(B" . "$B"Z(B")
  184. ;     ( "$B"[(B" . "$B"[(B")
  185.      ( "$B"\(B" . "$B"\(B")
  186.      ( "$B"](B" . "$B"](B")
  187.      ( "$B"^(B" . "$B"^(B")
  188.      ( "$B"_(B" . "$B"_(B")
  189.      ( "$B"`(B" . "$B"`(B")
  190.      ( "$B"a(B" . "$B"a(B")
  191.      ( "$B"b(B" . "$B"b(B")
  192.      ( "$B"c(B" . "$B"c(B")
  193.      ( "$B"d(B" . "$B"d(B")
  194.      ( "$B"e(B" . "$B"e(B")
  195.      ( "$B"f(B" . "$B"f(B")
  196.      ( "$B"g(B" . "$B"g(B")
  197.      ( "$B"h(B" . "$B"h(B")
  198.      ( "$B"i(B" . "$B"i(B")
  199.      ( "$B"j(B" . "$B"j(B")
  200. ;     ( "$B"k(B" . "$B"k(B")
  201. ;     ( "$B"l(B" . "$B"l(B")
  202. ;     ( "$B"m(B" . "$B"m(B")
  203. ;     ( "$B"n(B" . "$B"n(B")
  204. ;     ( "$B"o(B" . "$B"o(B")
  205. ;     ( "$B"p(B" . "$B"p(B")
  206. ;     ( "$B"q(B" . "$B"q(B")
  207.      ( "$B"r(B" . "$B"r(B")
  208.      ( "$B"s(B" . "$B"s(B")
  209.      ( "$B"t(B" . "$B"t(B")
  210.      ( "$B"u(B" . "$B"u(B")
  211.      ( "$B"v(B" . "$B"v(B")
  212.      ( "$B"w(B" . "$B"w(B")
  213.      ( "$B"x(B" . "$B"x(B")
  214.      ( "$B"y(B" . "$B"y(B")
  215. ;     ( "$B"z(B" . "$B"z(B")
  216. ;     ( "$B"{(B" . "$B"{(B")
  217. ;     ( "$B"|(B" . "$B"|(B")
  218. ;     ( "$B"}(B" . "$B"}(B")
  219.      ( "$B"~(B" . "$B"~(B")
  220. ))
  221.  
  222. (defvar egg:*symbol-alist* (append *ku1-alist* *ku2-alist*))
  223.  
  224. (defvar *ku3-alist* '(
  225. ;I     ( "$B#!(B" . "$B#!(B")
  226. ;II     ( "$B#"(B" . "$B#"(B")
  227. ;III     ( "$B##(B" . "$B##(B")
  228. ;IV     ( "$B#$(B" . "$B#$(B")
  229. ;V       ( "$B#%(B" . "$B#%(B")
  230. ;VI     ( "$B#&(B" . "$B#&(B")
  231. ;VII     ( "$B#'(B" . "$B#'(B")
  232. ;VIII     ( "$B#((B" . "$B#((B")
  233. ;IX     ( "$B#)(B" . "$B#)(B")
  234. ;X     ( "$B#*(B" . "$B#*(B")
  235. ;XI     ( "$B#+(B" . "$B#+(B")
  236. ;XII     ( "$B#,(B" . "$B#,(B")
  237. ;XIII     ( "$B#-(B" . "$B#-(B")
  238. ;XIV     ( "$B#.(B" . "$B#.(B")
  239. ;XV     ( "$B#/(B" . "$B#/(B")
  240.      ( "$B#0(B" . "$B#0(B")
  241.      ( "$B#1(B" . "$B#1(B")
  242.      ( "$B#2(B" . "$B#2(B")
  243.      ( "$B#3(B" . "$B#3(B")
  244.      ( "$B#4(B" . "$B#4(B")
  245.      ( "$B#5(B" . "$B#5(B")
  246.      ( "$B#6(B" . "$B#6(B")
  247.      ( "$B#7(B" . "$B#7(B")
  248.      ( "$B#8(B" . "$B#8(B")
  249.      ( "$B#9(B" . "$B#9(B")
  250. ;1/2     ( "$B#:(B" . "$B#:(B")
  251. ;1/3     ( "$B#;(B" . "$B#;(B")
  252. ;1/4     ( "$B#<(B" . "$B#<(B")
  253. ;2/3     ( "$B#=(B" . "$B#=(B")
  254. ;3/4     ( "$B#>(B" . "$B#>(B")
  255. ;     ( "$B#?(B" . "$B#?(B")
  256. ;     ( "$B#@(B" . "$B#@(B")
  257.      ( "$B#A(B" . "$B#A(B")
  258.      ( "$B#B(B" . "$B#B(B")
  259.      ( "$B#C(B" . "$B#C(B")
  260.      ( "$B#D(B" . "$B#D(B")
  261.      ( "$B#E(B" . "$B#E(B")
  262.      ( "$B#F(B" . "$B#F(B")
  263.      ( "$B#G(B" . "$B#G(B")
  264.      ( "$B#H(B" . "$B#H(B")
  265.      ( "$B#I(B" . "$B#I(B")
  266.      ( "$B#J(B" . "$B#J(B")
  267.      ( "$B#K(B" . "$B#K(B")
  268.      ( "$B#L(B" . "$B#L(B")
  269.      ( "$B#M(B" . "$B#M(B")
  270.      ( "$B#N(B" . "$B#N(B")
  271.      ( "$B#O(B" . "$B#O(B")
  272.      ( "$B#P(B" . "$B#P(B")
  273.      ( "$B#Q(B" . "$B#Q(B")
  274.      ( "$B#R(B" . "$B#R(B")
  275.      ( "$B#S(B" . "$B#S(B")
  276.      ( "$B#T(B" . "$B#T(B")
  277.      ( "$B#U(B" . "$B#U(B")
  278.      ( "$B#V(B" . "$B#V(B")
  279.      ( "$B#W(B" . "$B#W(B")
  280.      ( "$B#X(B" . "$B#X(B")
  281.      ( "$B#Y(B" . "$B#Y(B")
  282.      ( "$B#Z(B" . "$B#Z(B")
  283. ;     ( "$B#[(B" . "$B#[(B")
  284. ;     ( "$B#\(B" . "$B#\(B")
  285. ;     ( "$B#](B" . "$B#](B")
  286. ;     ( "$B#^(B" . "$B#^(B")
  287. ;     ( "$B#_(B" . "$B#_(B")
  288. ;     ( "$B#`(B" . "$B#`(B")
  289.      ( "$B#a(B" . "$B#a(B")
  290.      ( "$B#b(B" . "$B#b(B")
  291.      ( "$B#c(B" . "$B#c(B")
  292.      ( "$B#d(B" . "$B#d(B")
  293.      ( "$B#e(B" . "$B#e(B")
  294.      ( "$B#f(B" . "$B#f(B")
  295.      ( "$B#g(B" . "$B#g(B")
  296.      ( "$B#h(B" . "$B#h(B")
  297.      ( "$B#i(B" . "$B#i(B")
  298.      ( "$B#j(B" . "$B#j(B")
  299.      ( "$B#k(B" . "$B#k(B")
  300.      ( "$B#l(B" . "$B#l(B")
  301.      ( "$B#m(B" . "$B#m(B")
  302.      ( "$B#n(B" . "$B#n(B")
  303.      ( "$B#o(B" . "$B#o(B")
  304.      ( "$B#p(B" . "$B#p(B")
  305.      ( "$B#q(B" . "$B#q(B")
  306.      ( "$B#r(B" . "$B#r(B")
  307.      ( "$B#s(B" . "$B#s(B")
  308.      ( "$B#t(B" . "$B#t(B")
  309.      ( "$B#u(B" . "$B#u(B")
  310.      ( "$B#v(B" . "$B#v(B")
  311.      ( "$B#w(B" . "$B#w(B")
  312.      ( "$B#x(B" . "$B#x(B")
  313.      ( "$B#y(B" . "$B#y(B")
  314.      ( "$B#z(B" . "$B#z(B")
  315. ;     ( "$B#{(B" . "$B#{(B")
  316. ;     ( "$B#|(B" . "$B#|(B")
  317. ;     ( "$B#}(B" . "$B#}(B")
  318. ;     ( "$B#~(B" . "$B#~(B")
  319. ))
  320.  
  321. (defvar egg:*alphanumeric-alist* *ku3-alist*)
  322.  
  323. (defvar *ku4-alist* '(
  324.  
  325.      ( "$B$!(B" . "$B$!(B")
  326.      ( "$B$"(B" . "$B$"(B")
  327.      ( "$B$#(B" . "$B$#(B")
  328.      ( "$B$$(B" . "$B$$(B")
  329.      ( "$B$%(B" . "$B$%(B")
  330.      ( "$B$&(B" . "$B$&(B")
  331.      ( "$B$'(B" . "$B$'(B")
  332.      ( "$B$((B" . "$B$((B")
  333.      ( "$B$)(B" . "$B$)(B")
  334.      ( "$B$*(B" . "$B$*(B")
  335.      ( "$B$+(B" . "$B$+(B")
  336.      ( "$B$,(B" . "$B$,(B")
  337.      ( "$B$-(B" . "$B$-(B")
  338.      ( "$B$.(B" . "$B$.(B")
  339.      ( "$B$/(B" . "$B$/(B")
  340.      ( "$B$0(B" . "$B$0(B")
  341.      ( "$B$1(B" . "$B$1(B")
  342.      ( "$B$2(B" . "$B$2(B")
  343.      ( "$B$3(B" . "$B$3(B")
  344.      ( "$B$4(B" . "$B$4(B")
  345.      ( "$B$5(B" . "$B$5(B")
  346.      ( "$B$6(B" . "$B$6(B")
  347.      ( "$B$7(B" . "$B$7(B")
  348.      ( "$B$8(B" . "$B$8(B")
  349.      ( "$B$9(B" . "$B$9(B")
  350.      ( "$B$:(B" . "$B$:(B")
  351.      ( "$B$;(B" . "$B$;(B")
  352.      ( "$B$<(B" . "$B$<(B")
  353.      ( "$B$=(B" . "$B$=(B")
  354.      ( "$B$>(B" . "$B$>(B")
  355.      ( "$B$?(B" . "$B$?(B")
  356.      ( "$B$@(B" . "$B$@(B")
  357.      ( "$B$A(B" . "$B$A(B")
  358.      ( "$B$B(B" . "$B$B(B")
  359.      ( "$B$C(B" . "$B$C(B")
  360.      ( "$B$D(B" . "$B$D(B")
  361.      ( "$B$E(B" . "$B$E(B")
  362.      ( "$B$F(B" . "$B$F(B")
  363.      ( "$B$G(B" . "$B$G(B")
  364.      ( "$B$H(B" . "$B$H(B")
  365.      ( "$B$I(B" . "$B$I(B")
  366.      ( "$B$J(B" . "$B$J(B")
  367.      ( "$B$K(B" . "$B$K(B")
  368.      ( "$B$L(B" . "$B$L(B")
  369.      ( "$B$M(B" . "$B$M(B")
  370.      ( "$B$N(B" . "$B$N(B")
  371.      ( "$B$O(B" . "$B$O(B")
  372.      ( "$B$P(B" . "$B$P(B")
  373.      ( "$B$Q(B" . "$B$Q(B")
  374.      ( "$B$R(B" . "$B$R(B")
  375.      ( "$B$S(B" . "$B$S(B")
  376.      ( "$B$T(B" . "$B$T(B")
  377.      ( "$B$U(B" . "$B$U(B")
  378.      ( "$B$V(B" . "$B$V(B")
  379.      ( "$B$W(B" . "$B$W(B")
  380.      ( "$B$X(B" . "$B$X(B")
  381.      ( "$B$Y(B" . "$B$Y(B")
  382.      ( "$B$Z(B" . "$B$Z(B")
  383.      ( "$B$[(B" . "$B$[(B")
  384.      ( "$B$\(B" . "$B$\(B")
  385.      ( "$B$](B" . "$B$](B")
  386.      ( "$B$^(B" . "$B$^(B")
  387.      ( "$B$_(B" . "$B$_(B")
  388.      ( "$B$`(B" . "$B$`(B")
  389.      ( "$B$a(B" . "$B$a(B")
  390.      ( "$B$b(B" . "$B$b(B")
  391.      ( "$B$c(B" . "$B$c(B")
  392.      ( "$B$d(B" . "$B$d(B")
  393.      ( "$B$e(B" . "$B$e(B")
  394.      ( "$B$f(B" . "$B$f(B")
  395.      ( "$B$g(B" . "$B$g(B")
  396.      ( "$B$h(B" . "$B$h(B")
  397.      ( "$B$i(B" . "$B$i(B")
  398.      ( "$B$j(B" . "$B$j(B")
  399.      ( "$B$k(B" . "$B$k(B")
  400.      ( "$B$l(B" . "$B$l(B")
  401.      ( "$B$m(B" . "$B$m(B")
  402.      ( "$B$n(B" . "$B$n(B")
  403.      ( "$B$o(B" . "$B$o(B")
  404.      ( "$B$p(B" . "$B$p(B")
  405.      ( "$B$q(B" . "$B$q(B")
  406.      ( "$B$r(B" . "$B$r(B")
  407.      ( "$B$s(B" . "$B$s(B")
  408. ;     ( "$B$t(B" . "$B$t(B")
  409. ;     ( "$B$u(B" . "$B$u(B")
  410. ;     ( "$B$v(B" . "$B$v(B")
  411. ;     ( "$B$w(B" . "$B$w(B")
  412. ;     ( "$B$x(B" . "$B$x(B")
  413. ;     ( "$B$y(B" . "$B$y(B")
  414. ;     ( "$B$z(B" . "$B$z(B")
  415. ;     ( "$B${(B" . "$B${(B")
  416. ;     ( "$B$|(B" . "$B$|(B")
  417. ;     ( "$B$}(B" . "$B$}(B")
  418. ;     ( "$B$~(B" . "$B$~(B")
  419. ))
  420.  
  421. (defvar egg:*hiragana-alist* *ku4-alist*)
  422.  
  423. (defvar *ku5-alist* '(
  424.      ( "$B%!(B" . "$B%!(B")
  425.      ( "$B%"(B" . "$B%"(B")
  426.      ( "$B%#(B" . "$B%#(B")
  427.      ( "$B%$(B" . "$B%$(B")
  428.      ( "$B%%(B" . "$B%%(B")
  429.      ( "$B%&(B" . "$B%&(B")
  430.      ( "$B%'(B" . "$B%'(B")
  431.      ( "$B%((B" . "$B%((B")
  432.      ( "$B%)(B" . "$B%)(B")
  433.      ( "$B%*(B" . "$B%*(B")
  434.      ( "$B%+(B" . "$B%+(B")
  435.      ( "$B%,(B" . "$B%,(B")
  436.      ( "$B%-(B" . "$B%-(B")
  437.      ( "$B%.(B" . "$B%.(B")
  438.      ( "$B%/(B" . "$B%/(B")
  439.      ( "$B%0(B" . "$B%0(B")
  440.      ( "$B%1(B" . "$B%1(B")
  441.      ( "$B%2(B" . "$B%2(B")
  442.      ( "$B%3(B" . "$B%3(B")
  443.      ( "$B%4(B" . "$B%4(B")
  444.      ( "$B%5(B" . "$B%5(B")
  445.      ( "$B%6(B" . "$B%6(B")
  446.      ( "$B%7(B" . "$B%7(B")
  447.      ( "$B%8(B" . "$B%8(B")
  448.      ( "$B%9(B" . "$B%9(B")
  449.      ( "$B%:(B" . "$B%:(B")
  450.      ( "$B%;(B" . "$B%;(B")
  451.      ( "$B%<(B" . "$B%<(B")
  452.      ( "$B%=(B" . "$B%=(B")
  453.      ( "$B%>(B" . "$B%>(B")
  454.      ( "$B%?(B" . "$B%?(B")
  455.      ( "$B%@(B" . "$B%@(B")
  456.      ( "$B%A(B" . "$B%A(B")
  457.      ( "$B%B(B" . "$B%B(B")
  458.      ( "$B%C(B" . "$B%C(B")
  459.      ( "$B%D(B" . "$B%D(B")
  460.      ( "$B%E(B" . "$B%E(B")
  461.      ( "$B%F(B" . "$B%F(B")
  462.      ( "$B%G(B" . "$B%G(B")
  463.      ( "$B%H(B" . "$B%H(B")
  464.      ( "$B%I(B" . "$B%I(B")
  465.      ( "$B%J(B" . "$B%J(B")
  466.      ( "$B%K(B" . "$B%K(B")
  467.      ( "$B%L(B" . "$B%L(B")
  468.      ( "$B%M(B" . "$B%M(B")
  469.      ( "$B%N(B" . "$B%N(B")
  470.      ( "$B%O(B" . "$B%O(B")
  471.      ( "$B%P(B" . "$B%P(B")
  472.      ( "$B%Q(B" . "$B%Q(B")
  473.      ( "$B%R(B" . "$B%R(B")
  474.      ( "$B%S(B" . "$B%S(B")
  475.      ( "$B%T(B" . "$B%T(B")
  476.      ( "$B%U(B" . "$B%U(B")
  477.      ( "$B%V(B" . "$B%V(B")
  478.      ( "$B%W(B" . "$B%W(B")
  479.      ( "$B%X(B" . "$B%X(B")
  480.      ( "$B%Y(B" . "$B%Y(B")
  481.      ( "$B%Z(B" . "$B%Z(B")
  482.      ( "$B%[(B" . "$B%[(B")
  483.      ( "$B%\(B" . "$B%\(B")
  484.      ( "$B%](B" . "$B%](B")
  485.      ( "$B%^(B" . "$B%^(B")
  486.      ( "$B%_(B" . "$B%_(B")
  487.      ( "$B%`(B" . "$B%`(B")
  488.      ( "$B%a(B" . "$B%a(B")
  489.      ( "$B%b(B" . "$B%b(B")
  490.      ( "$B%c(B" . "$B%c(B")
  491.      ( "$B%d(B" . "$B%d(B")
  492.      ( "$B%e(B" . "$B%e(B")
  493.      ( "$B%f(B" . "$B%f(B")
  494.      ( "$B%g(B" . "$B%g(B")
  495.      ( "$B%h(B" . "$B%h(B")
  496.      ( "$B%i(B" . "$B%i(B")
  497.      ( "$B%j(B" . "$B%j(B")
  498.      ( "$B%k(B" . "$B%k(B")
  499.      ( "$B%l(B" . "$B%l(B")
  500.      ( "$B%m(B" . "$B%m(B")
  501.      ( "$B%n(B" . "$B%n(B")
  502.      ( "$B%o(B" . "$B%o(B")
  503.      ( "$B%p(B" . "$B%p(B")
  504.      ( "$B%q(B" . "$B%q(B")
  505.      ( "$B%r(B" . "$B%r(B")
  506.      ( "$B%s(B" . "$B%s(B")
  507.      ( "$B%t(B" . "$B%t(B")
  508.      ( "$B%u(B" . "$B%u(B")
  509.      ( "$B%v(B" . "$B%v(B")
  510. ;     ( "$B%w(B" . "$B%w(B")
  511. ;     ( "$B%x(B" . "$B%x(B")
  512. ;     ( "$B%y(B" . "$B%y(B")
  513. ;     ( "$B%z(B" . "$B%z(B")
  514. ;     ( "$B%{(B" . "$B%{(B")
  515. ;     ( "$B%|(B" . "$B%|(B")
  516. ;     ( "$B%}(B" . "$B%}(B")
  517. ;     ( "$B%~(B" . "$B%~(B")
  518. ))
  519.  
  520. (defvar egg:*katakana-alist* *ku5-alist*)
  521.  
  522. (defvar *ku6-alist* '(
  523.      ( "$B&!(B" . "$B&!(B")
  524.      ( "$B&"(B" . "$B&"(B")
  525.      ( "$B&#(B" . "$B&#(B")
  526.      ( "$B&$(B" . "$B&$(B")
  527.      ( "$B&%(B" . "$B&%(B")
  528.      ( "$B&&(B" . "$B&&(B")
  529.      ( "$B&'(B" . "$B&'(B")
  530.      ( "$B&((B" . "$B&((B")
  531.      ( "$B&)(B" . "$B&)(B")
  532.      ( "$B&*(B" . "$B&*(B")
  533.      ( "$B&+(B" . "$B&+(B")
  534.      ( "$B&,(B" . "$B&,(B")
  535.      ( "$B&-(B" . "$B&-(B")
  536.      ( "$B&.(B" . "$B&.(B")
  537.      ( "$B&/(B" . "$B&/(B")
  538.      ( "$B&0(B" . "$B&0(B")
  539.      ( "$B&1(B" . "$B&1(B")
  540.      ( "$B&2(B" . "$B&2(B")
  541.      ( "$B&3(B" . "$B&3(B")
  542.      ( "$B&4(B" . "$B&4(B")
  543.      ( "$B&5(B" . "$B&5(B")
  544.      ( "$B&6(B" . "$B&6(B")
  545.      ( "$B&7(B" . "$B&7(B")
  546.      ( "$B&8(B" . "$B&8(B")
  547. ;     ( "$B&9(B" . "$B&9(B")
  548. ;     ( "$B&:(B" . "$B&:(B")
  549. ;     ( "$B&;(B" . "$B&;(B")
  550. ;     ( "$B&<(B" . "$B&<(B")
  551. ;     ( "$B&=(B" . "$B&=(B")
  552. ;     ( "$B&>(B" . "$B&>(B")
  553. ;     ( "$B&?(B" . "$B&?(B")
  554. ;     ( "$B&@(B" . "$B&@(B")
  555.      ( "$B&A(B" . "$B&A(B")
  556.      ( "$B&B(B" . "$B&B(B")
  557.      ( "$B&C(B" . "$B&C(B")
  558.      ( "$B&D(B" . "$B&D(B")
  559.      ( "$B&E(B" . "$B&E(B")
  560.      ( "$B&F(B" . "$B&F(B")
  561.      ( "$B&G(B" . "$B&G(B")
  562.      ( "$B&H(B" . "$B&H(B")
  563.      ( "$B&I(B" . "$B&I(B")
  564.      ( "$B&J(B" . "$B&J(B")
  565.      ( "$B&K(B" . "$B&K(B")
  566.      ( "$B&L(B" . "$B&L(B")
  567.      ( "$B&M(B" . "$B&M(B")
  568.      ( "$B&N(B" . "$B&N(B")
  569.      ( "$B&O(B" . "$B&O(B")
  570.      ( "$B&P(B" . "$B&P(B")
  571.      ( "$B&Q(B" . "$B&Q(B")
  572.      ( "$B&R(B" . "$B&R(B")
  573.      ( "$B&S(B" . "$B&S(B")
  574.      ( "$B&T(B" . "$B&T(B")
  575.      ( "$B&U(B" . "$B&U(B")
  576.      ( "$B&V(B" . "$B&V(B")
  577.      ( "$B&W(B" . "$B&W(B")
  578.      ( "$B&X(B" . "$B&X(B")
  579. ;     ( "$B&Y(B" . "$B&Y(B")
  580. ;     ( "$B&Z(B" . "$B&Z(B")
  581. ;     ( "$B&[(B" . "$B&[(B")
  582. ;     ( "$B&\(B" . "$B&\(B")
  583. ;     ( "$B&](B" . "$B&](B")
  584. ;     ( "$B&^(B" . "$B&^(B")
  585. ;     ( "$B&_(B" . "$B&_(B")
  586. ;     ( "$B&`(B" . "$B&`(B")
  587. ;(a)     ( "$B&a(B" . "$B&a(B")
  588. ;(b)     ( "$B&b(B" . "$B&b(B")
  589. ;(c)     ( "$B&c(B" . "$B&c(B")
  590. ;(d)     ( "$B&d(B" . "$B&d(B")
  591. ;(e)     ( "$B&e(B" . "$B&e(B")
  592. ;(f)     ( "$B&f(B" . "$B&f(B")
  593. ;(g)     ( "$B&g(B" . "$B&g(B")
  594. ;(h)     ( "$B&h(B" . "$B&h(B")
  595. ;(i)     ( "$B&i(B" . "$B&i(B")
  596. ;(j)     ( "$B&j(B" . "$B&j(B")
  597. ;(k)     ( "$B&k(B" . "$B&k(B")
  598. ;(l)     ( "$B&l(B" . "$B&l(B")
  599. ;(m)     ( "$B&m(B" . "$B&m(B")
  600. ;(n)     ( "$B&n(B" . "$B&n(B")
  601. ;(o)     ( "$B&o(B" . "$B&o(B")
  602. ;(p)     ( "$B&p(B" . "$B&p(B")
  603. ;(q)     ( "$B&q(B" . "$B&q(B")
  604. ;(r)     ( "$B&r(B" . "$B&r(B")
  605. ;(s)     ( "$B&s(B" . "$B&s(B")
  606. ;(t)     ( "$B&t(B" . "$B&t(B")
  607. ;(u)     ( "$B&u(B" . "$B&u(B")
  608. ;(v)     ( "$B&v(B" . "$B&v(B")
  609. ;(w)     ( "$B&w(B" . "$B&w(B")
  610. ;(x)     ( "$B&x(B" . "$B&x(B")
  611. ;(y)     ( "$B&y(B" . "$B&y(B")
  612. ;(z)     ( "$B&z(B" . "$B&z(B")
  613. ;     ( "$B&{(B" . "$B&{(B")
  614. ;     ( "$B&|(B" . "$B&|(B")
  615. ;     ( "$B&}(B" . "$B&}(B")
  616. ;     ( "$B&~(B" . "$B&~(B")
  617. ))
  618.  
  619. (defvar egg:*greek-alist* *ku6-alist*)
  620.  
  621. (defvar *ku7-alist* '(
  622.      ( "$B'!(B" . "$B'!(B")
  623.      ( "$B'"(B" . "$B'"(B")
  624.      ( "$B'#(B" . "$B'#(B")
  625.      ( "$B'$(B" . "$B'$(B")
  626.      ( "$B'%(B" . "$B'%(B")
  627.      ( "$B'&(B" . "$B'&(B")
  628.      ( "$B''(B" . "$B''(B")
  629.      ( "$B'((B" . "$B'((B")
  630.      ( "$B')(B" . "$B')(B")
  631.      ( "$B'*(B" . "$B'*(B")
  632.      ( "$B'+(B" . "$B'+(B")
  633.      ( "$B',(B" . "$B',(B")
  634.      ( "$B'-(B" . "$B'-(B")
  635.      ( "$B'.(B" . "$B'.(B")
  636.      ( "$B'/(B" . "$B'/(B")
  637.      ( "$B'0(B" . "$B'0(B")
  638.      ( "$B'1(B" . "$B'1(B")
  639.      ( "$B'2(B" . "$B'2(B")
  640.      ( "$B'3(B" . "$B'3(B")
  641.      ( "$B'4(B" . "$B'4(B")
  642.      ( "$B'5(B" . "$B'5(B")
  643.      ( "$B'6(B" . "$B'6(B")
  644.      ( "$B'7(B" . "$B'7(B")
  645.      ( "$B'8(B" . "$B'8(B")
  646.      ( "$B'9(B" . "$B'9(B")
  647.      ( "$B':(B" . "$B':(B")
  648.      ( "$B';(B" . "$B';(B")
  649.      ( "$B'<(B" . "$B'<(B")
  650.      ( "$B'=(B" . "$B'=(B")
  651.      ( "$B'>(B" . "$B'>(B")
  652.      ( "$B'?(B" . "$B'?(B")
  653.      ( "$B'@(B" . "$B'@(B")
  654.      ( "$B'A(B" . "$B'A(B")
  655. ;(1)     ( "$B'B(B" . "$B'B(B")
  656. ;(2)     ( "$B'C(B" . "$B'C(B")
  657. ;(3)     ( "$B'D(B" . "$B'D(B")
  658. ;(4)     ( "$B'E(B" . "$B'E(B")
  659. ;(5)     ( "$B'F(B" . "$B'F(B")
  660. ;(6)     ( "$B'G(B" . "$B'G(B")
  661. ;(7)     ( "$B'H(B" . "$B'H(B")
  662. ;(8)     ( "$B'I(B" . "$B'I(B")
  663. ;(9)     ( "$B'J(B" . "$B'J(B")
  664. ;(10)     ( "$B'K(B" . "$B'K(B")
  665. ;(11)     ( "$B'L(B" . "$B'L(B")
  666. ;(12)     ( "$B'M(B" . "$B'M(B")
  667. ;(13)     ( "$B'N(B" . "$B'N(B")
  668. ;(14)     ( "$B'O(B" . "$B'O(B")
  669. ;(15)     ( "$B'P(B" . "$B'P(B")
  670.      ( "$B'Q(B" . "$B'Q(B")
  671.      ( "$B'R(B" . "$B'R(B")
  672.      ( "$B'S(B" . "$B'S(B")
  673.      ( "$B'T(B" . "$B'T(B")
  674.      ( "$B'U(B" . "$B'U(B")
  675.      ( "$B'V(B" . "$B'V(B")
  676.      ( "$B'W(B" . "$B'W(B")
  677.      ( "$B'X(B" . "$B'X(B")
  678.      ( "$B'Y(B" . "$B'Y(B")
  679.      ( "$B'Z(B" . "$B'Z(B")
  680.      ( "$B'[(B" . "$B'[(B")
  681.      ( "$B'\(B" . "$B'\(B")
  682.      ( "$B'](B" . "$B'](B")
  683.      ( "$B'^(B" . "$B'^(B")
  684.      ( "$B'_(B" . "$B'_(B")
  685.      ( "$B'`(B" . "$B'`(B")
  686.      ( "$B'a(B" . "$B'a(B")
  687.      ( "$B'b(B" . "$B'b(B")
  688.      ( "$B'c(B" . "$B'c(B")
  689.      ( "$B'd(B" . "$B'd(B")
  690.      ( "$B'e(B" . "$B'e(B")
  691.      ( "$B'f(B" . "$B'f(B")
  692.      ( "$B'g(B" . "$B'g(B")
  693.      ( "$B'h(B" . "$B'h(B")
  694.      ( "$B'i(B" . "$B'i(B")
  695.      ( "$B'j(B" . "$B'j(B")
  696.      ( "$B'k(B" . "$B'k(B")
  697.      ( "$B'l(B" . "$B'l(B")
  698.      ( "$B'm(B" . "$B'm(B")
  699.      ( "$B'n(B" . "$B'n(B")
  700.      ( "$B'o(B" . "$B'o(B")
  701.      ( "$B'p(B" . "$B'p(B")
  702.      ( "$B'q(B" . "$B'q(B")
  703. ;i     ( "$B'r(B" . "$B'r(B")
  704. ;ii     ( "$B's(B" . "$B's(B")
  705. ;iii     ( "$B't(B" . "$B't(B")
  706. ;iv     ( "$B'u(B" . "$B'u(B")
  707. ;v     ( "$B'v(B" . "$B'v(B")
  708. ;vi     ( "$B'w(B" . "$B'w(B")
  709. ;vii     ( "$B'x(B" . "$B'x(B")
  710. ;viii     ( "$B'y(B" . "$B'y(B")
  711. ;ix     ( "$B'z(B" . "$B'z(B")
  712. ;x     ( "$B'{(B" . "$B'{(B")
  713. ;|     ( "$B'|(B" . "$B'|(B")
  714. ;'     ( "$B'}(B" . "$B'}(B")
  715. ;''     ( "$B'~(B" . "$B'~(B")
  716. ))
  717.  
  718. (defvar egg:*russian-alist* *ku7-alist*)
  719.  
  720. (defvar *ku8-alist* '(
  721.      ( "$B(!(B" . "$B(!(B")
  722.      ( "$B("(B" . "$B("(B")
  723.      ( "$B(#(B" . "$B(#(B")
  724.      ( "$B($(B" . "$B($(B")
  725.      ( "$B(%(B" . "$B(%(B")
  726.      ( "$B(&(B" . "$B(&(B")
  727.      ( "$B('(B" . "$B('(B")
  728.      ( "$B(((B" . "$B(((B")
  729.      ( "$B()(B" . "$B()(B")
  730.      ( "$B(*(B" . "$B(*(B")
  731.      ( "$B(+(B" . "$B(+(B")
  732.      ( "$B(,(B" . "$B(,(B")
  733.      ( "$B(-(B" . "$B(-(B")
  734.      ( "$B(.(B" . "$B(.(B")
  735.      ( "$B(/(B" . "$B(/(B")
  736.      ( "$B(0(B" . "$B(0(B")
  737.      ( "$B(1(B" . "$B(1(B")
  738.      ( "$B(2(B" . "$B(2(B")
  739.      ( "$B(3(B" . "$B(3(B")
  740.      ( "$B(4(B" . "$B(4(B")
  741.      ( "$B(5(B" . "$B(5(B")
  742.      ( "$B(6(B" . "$B(6(B")
  743.      ( "$B(7(B" . "$B(7(B")
  744.      ( "$B(8(B" . "$B(8(B")
  745.      ( "$B(9(B" . "$B(9(B")
  746.      ( "$B(:(B" . "$B(:(B")
  747.      ( "$B(;(B" . "$B(;(B")
  748.      ( "$B(<(B" . "$B(<(B")
  749.      ( "$B(=(B" . "$B(=(B")
  750.      ( "$B(>(B" . "$B(>(B")
  751.      ( "$B(?(B" . "$B(?(B")
  752.      ( "$B(@(B" . "$B(@(B")
  753. ;     ( "$B(A(B" . "$B(A(B")
  754. ;     ( "$B(B(B" . "$B(B(B")
  755. ;     ( "$B(C(B" . "$B(C(B")
  756. ;     ( "$B(D(B" . "$B(D(B")
  757. ;     ( "$B(E(B" . "$B(E(B")
  758. ;*     ( "$B(F(B" . "$B(F(B")
  759. ;*     ( "$B(G(B" . "$B(G(B")
  760. ;*     ( "$B(H(B" . "$B(H(B")
  761. ;*     ( "$B(I(B" . "$B(I(B")
  762. ;*     ( "$B(J(B" . "$B(J(B")
  763. ;*     ( "$B(K(B" . "$B(K(B")
  764. ;*     ( "$B(L(B" . "$B(L(B")
  765. ;*     ( "$B(M(B" . "$B(M(B")
  766. ;*     ( "$B(N(B" . "$B(N(B")
  767. ;*     ( "$B(O(B" . "$B(O(B")
  768. ;*     ( "$B(P(B" . "$B(P(B")
  769. ;*     ( "$B(Q(B" . "$B(Q(B")
  770. ;*     ( "$B(R(B" . "$B(R(B")
  771. ;*     ( "$B(S(B" . "$B(S(B")
  772. ;*     ( "$B(T(B" . "$B(T(B")
  773. ;*     ( "$B(U(B" . "$B(U(B")
  774. ;*     ( "$B(V(B" . "$B(V(B")
  775. ;*     ( "$B(W(B" . "$B(W(B")
  776. ;*     ( "$B(X(B" . "$B(X(B")
  777. ;*     ( "$B(Y(B" . "$B(Y(B")
  778. ;*     ( "$B(Z(B" . "$B(Z(B")
  779. ;*     ( "$B([(B" . "$B([(B")
  780. ;*     ( "$B(\(B" . "$B(\(B")
  781. ;*     ( "$B(](B" . "$B(](B")
  782. ;*     ( "$B(^(B" . "$B(^(B")
  783. ;*     ( "$B(_(B" . "$B(_(B")
  784. ;*     ( "$B(`(B" . "$B(`(B")
  785. ;*     ( "$B(a(B" . "$B(a(B")
  786. ;*     ( "$B(b(B" . "$B(b(B")
  787. ;*     ( "$B(c(B" . "$B(c(B")
  788. ;*     ( "$B(d(B" . "$B(d(B")
  789. ;*     ( "$B(e(B" . "$B(e(B")
  790. ;*     ( "$B(f(B" . "$B(f(B")
  791. ;*     ( "$B(g(B" . "$B(g(B")
  792. ;*     ( "$B(h(B" . "$B(h(B")
  793. ;*     ( "$B(i(B" . "$B(i(B")
  794. ;*     ( "$B(j(B" . "$B(j(B")
  795. ;*     ( "$B(k(B" . "$B(k(B")
  796. ;*     ( "$B(l(B" . "$B(l(B")
  797. ;*     ( "$B(m(B" . "$B(m(B")
  798. ;*     ( "$B(n(B" . "$B(n(B")
  799. ;*     ( "$B(o(B" . "$B(o(B")
  800. ;*     ( "$B(p(B" . "$B(p(B")
  801. ;*     ( "$B(q(B" . "$B(q(B")
  802. ;*     ( "$B(r(B" . "$B(r(B")
  803. ;*     ( "$B(s(B" . "$B(s(B")
  804. ;*     ( "$B(t(B" . "$B(t(B")
  805. ;*     ( "$B(u(B" . "$B(u(B")
  806. ;*     ( "$B(v(B" . "$B(v(B")
  807. ;*     ( "$B(w(B" . "$B(w(B")
  808. ;*     ( "$B(x(B" . "$B(x(B")
  809. ;*     ( "$B(y(B" . "$B(y(B")
  810. ;*     ( "$B(z(B" . "$B(z(B")
  811. ;     ( "$B({(B" . "$B({(B")
  812. ;     ( "$B(|(B" . "$B(|(B")
  813. ;     ( "$B(}(B" . "$B(}(B")
  814. ;     ( "$B(~(B" . "$B(~(B")
  815. ))
  816.  
  817. (defvar egg:*keisen-alist* *ku8-alist*)
  818.  
  819. (defun make-all-jis-code-alist ()
  820.   (let ((result nil) (ku 116))
  821.     (while (<  32 ku)
  822.       (let ((ten 126))
  823.     (while (< 32 ten)
  824.       (setq result (cons 
  825.             (let ((str (make-string 1 0)))
  826.               (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
  827.               (cons str str))
  828.             result))
  829.       (setq ten (1- ten))))
  830.       (setq ku (1- ku)))
  831.     result))
  832.  
  833. (defun make-jis-first-level-code-alist ()
  834.   (let ((result nil) (ku 79))
  835.     (while (<=  48 ku)
  836.       (let ((ten 126))
  837.     (while (<= 33 ten)
  838.       (setq result (cons 
  839.             (let ((str (make-string 1 0)))
  840.               (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
  841.               (cons str str))
  842.             result))
  843.       (setq ten (1- ten))))
  844.       (setq ku (1- ku)))
  845.     result))
  846.  
  847. (defun make-jis-second-level-code-alist ()
  848.   (let ((result nil) (ku 116))
  849.     (while (<= 80 ku)
  850.       (let ((ten 126))
  851.     (while (<= 33 ten)
  852.       (setq result (cons 
  853.             (let ((str (make-string 1 0))) ; by T.Shingu
  854.               (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
  855.               (cons str str))
  856.             result))
  857.       (setq ten (1- ten))))
  858.       (setq ku (1- ku)))
  859.     result))
  860.  
  861. (defun make-jis-hojo-kanji-code-alist ()
  862.   (let ((result nil) (ku 109))
  863.     (while (<=  34 ku)
  864.       (let ((ten 126))
  865.     (while (<= 33 ten)
  866.       (setq result (cons 
  867.             (let ((str (make-string 1 0)))
  868.               (aset str 0 (make-char (find-charset 'japanese-jisx0212)  ku ten))
  869.               (cons str str))
  870.             result))
  871.       (setq ten (1- ten))))
  872.       (setq ku (1- ku)))
  873.     result))
  874.  
  875. ;;;(defvar egg:*all-jis-code-alist* (make-all-jis-code-alist))
  876.  
  877. (defvar egg:*first-level-alist*  (make-jis-first-level-code-alist))
  878. (defvar egg:*second-level-alist* (make-jis-second-level-code-alist))
  879. (defvar egg:*hojo-kanji-alist* (make-jis-hojo-kanji-code-alist))
  880.  
  881. (defvar *symbol-input-menu*
  882.   (list 'menu "$B5-9fF~NO(B:"
  883.     (list 
  884.      (cons "JIS$BF~NO(B"
  885.            '(jis-code-input))
  886.      (cons "$B5-9f(B"
  887.            (list 'menu "$B5-9f(B:" egg:*symbol-alist*))
  888.      (cons "$B1Q?t;z(B"
  889.            (list 'menu "$B1Q?t;z(B:" egg:*alphanumeric-alist*))
  890.      (cons "$B$R$i$,$J(B"
  891.            (list 'menu "$B$R$i$,$J(B:" egg:*hiragana-alist*))
  892.      (cons "$B%+%?%+%J(B"
  893.            (list 'menu "$B%+%?%+%J(B:" egg:*katakana-alist*))
  894.      (cons "$B%.%j%7%cJ8;z(B"
  895.            (list 'menu "$B%.%j%7%cJ8;z(B:" egg:*greek-alist*))
  896.      (cons "$B%m%7%"J8;z(B"
  897.            (list 'menu "$B%m%7%"J8;z(B:" egg:*russian-alist*))
  898.      (cons "$B7S@~(B"
  899.            (list 'menu "$B7S@~(B:" egg:*keisen-alist*))
  900.      ;; 92.7.8 by T.Shingu
  901.      (cons "$BIt<sF~NO(B"
  902.            '(busyu-input))
  903.      (cons "$B2h?tF~NO(B"
  904.            '(kakusuu-input))
  905.      ;; end of patch
  906.      (cons "$BBh0l?e=`(B"
  907.            (list 'menu "$BBh0l?e=`(B:" egg:*first-level-alist*))
  908.      (cons "$BBhFs?e=`(B"
  909.            (list 'menu "$BBhFs?e=`(B:" egg:*second-level-alist*))
  910.      (cons "$BJd=u4A;z(B"
  911.            (list 'menu "$BJd=u4A;z(B:" egg:*hojo-kanji-alist*))
  912.     ;; (cons "$BA4%3!<%I!J>/$7;~4V$,3]$+$j$^$9!#!K(B"
  913.     ;;       (list 'menu "$BA4%3!<%I(B:" egg:*all-jis-code-alist*))
  914.      )))
  915.